Fish With Names Like.../Fish With Names Like... 2.5.iso/pc/Media/Fishsp.dir/00001_Main Script.ls

Text File | 2004-04-27 | 3.7 KB | 151 lines

on soundCheck
  if soundBusy(1) then
    go(#loop)
  end if
end

on setcursor
  set the cursor of sprite 1 to -1
  set the cursor of sprite 26 to -1
  set the cursor of sprite 28 to -1
  set the cursor of sprite 33 to -1
  set the cursor of sprite 5 to [2, 3]
  set the cursor of sprite 6 to [2, 3]
  set the cursor of sprite 7 to [2, 3]
  set the cursor of sprite 8 to [2, 3]
  set the cursor of sprite 9 to [2, 3]
  set the cursor of sprite 10 to [2, 3]
  set the cursor of sprite 11 to [2, 3]
  set the cursor of sprite 12 to [2, 3]
  set the cursor of sprite 13 to [2, 3]
  set the cursor of sprite 14 to [2, 3]
  set the cursor of sprite 15 to [2, 3]
  set the cursor of sprite 16 to [2, 3]
  set the cursor of sprite 17 to [2, 3]
  set the cursor of sprite 18 to [2, 3]
  updateStage()
end

on indexCursor
  set the cursor of sprite 1 to -1
  set the cursor of sprite 5 to [2, 3]
  set the cursor of sprite 6 to [2, 3]
  set the cursor of sprite 7 to [2, 3]
  set the cursor of sprite 8 to [2, 3]
  set the cursor of sprite 9 to [2, 3]
  set the cursor of sprite 10 to [2, 3]
  set the cursor of sprite 11 to [2, 3]
  set the cursor of sprite 12 to [2, 3]
  set the cursor of sprite 13 to [2, 3]
  set the cursor of sprite 14 to [2, 3]
  set the cursor of sprite 15 to [2, 3]
  set the cursor of sprite 16 to [2, 3]
  set the cursor of sprite 17 to [2, 3]
  set the cursor of sprite 18 to [2, 3]
  set the cursor of sprite 19 to [2, 3]
  set the cursor of sprite 20 to [2, 3]
  set the cursor of sprite 21 to [2, 3]
  set the cursor of sprite 22 to [2, 3]
  set the cursor of sprite 23 to [2, 3]
  set the cursor of sprite 24 to [2, 3]
  set the cursor of sprite 25 to [2, 3]
  set the cursor of sprite 26 to [2, 3]
  set the cursor of sprite 27 to [2, 3]
  set the cursor of sprite 28 to [2, 3]
  set the cursor of sprite 29 to [2, 3]
  set the cursor of sprite 30 to [2, 3]
  set the cursor of sprite 31 to [2, 3]
  set the cursor of sprite 32 to [2, 3]
  set the cursor of sprite 33 to [2, 3]
  set the cursor of sprite 34 to [2, 3]
  set the cursor of sprite 35 to [2, 3]
  set the cursor of sprite 36 to [2, 3]
  set the cursor of sprite 37 to [2, 3]
  set the cursor of sprite 38 to [2, 3]
  set the cursor of sprite 39 to [2, 3]
  set the cursor of sprite 40 to [2, 3]
  set the cursor of sprite 41 to [2, 3]
  set the cursor of sprite 42 to [2, 3]
  set the cursor of sprite 43 to [2, 3]
  set the cursor of sprite 44 to [2, 3]
  updateStage()
end

on otherFish
  go("Others")
end

on goBackground
  set the volume of sound 1 to 0
  sprite(48).visible = 1
  sprite(28).visible = 0
end

on bgdOff
  set the volume of sound 1 to 255
  sprite(48).visible = 0
  sprite(28).visible = 1
end

on voiceOff
  puppetSprite(11, 1)
  if the castNum of sprite 11 = 22 then
    set the memberNum of sprite 11 to 24
    noVoice()
  else
    set the memberNum of sprite 11 to 22
    withVoice()
  end if
  updateStage()
end

on noVoice
  set the volume of sound 1 to 15
end

on withVoice
  set the volume of sound 1 to 255
end

on startVisibles
  sprite(11).visible = 1
  sprite(48).visible = 0
end

on visible
  if sprite(9).visible = 1 then
    sprite(9).visible = 0
  else
    sprite(9).visible = 1
  end if
  updateStage()
end

on raiseAllSound
  set the volume of sound 2 to 255
end

on lowerSound
  set the volume of sound 2 to 80
end

on click downSound, upSound
  if stringp(downSound) then
    puppetSound(downSound)
  end if
  this = the castNum of sprite the clickOn
  set the castNum of sprite the clickOn to this + 1
  updateStage()
  repeat while the stillDown or soundBusy(1)
  end repeat
  if stringp(upSound) then
    puppetSound(upSound)
  end if
  set the castNum of sprite the clickOn to this
  updateStage()
  repeat while soundBusy(1)
  end repeat
  puppetSound(0)
  updateStage()
end